LET 

(PROGRAMS FOR PRACTICE) 



5 REM A counting progran* 
10 LET COUNT=0 
20 LET C0UNT=C0UNT+1 
30 PRINT. COUNT 

40 REM Line 50 says go back to line 20* 
50 GOTO 20 



5 REM Practice using numeric variables* 
10 LET NUM1=5 
20 LET NUM2=7 
30 LET NUM3=NUM1+NUM2 
40 LET NUM4=NUM1*NUM2 
50 ? "NUM1 = "J NUM1 
60 ? "NUM2 = " I NUM2 
70 ? NUMir' + "JNUM2r' = ";NUM3 
80 ? NUMl, ,, *",NUM2r , = ,, >NUM4 



5 REM Practice using string variables* 
10 DIM NAME*(15> 

20 LET NAME*=" ; " 

30 ? NAME*; 

40 ? " is learning about variables*" 



5 REM Using numbers in strings* 

10 DIM NAMES(IS) 

20 LET NAME*=" " 

30 ? "HI ! MY NAME IS " *NAME$ » " ♦ " 

40 ? "SEE HOW FAST I CAN COUNT TO 10! 

50 DIM NUMS*<25> 

60 LET NUMS$="1 23456789 10" 

70 ? NUMS* 



5 REM Assignment without LET; Averaging* 
10 Nl=7 
20 N2=8 
30 N3=10 
40 N4=105 
50 N5=1000 

60 N6=<Nl+N2+N3+N4+N5>/5 

70 ? "The average of "J Hit" f "JN2,", ",N3, 
"t ",N4,% and ";ns; " is ,, JN6;"*" 
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VARIABLES — ACXXVXXY *2 



NUM / 



NUM=5 




H0WMANY=7 



NAME* 



DIM NAME* (5) 



NAME*=" JOE' 



ANSWER* 



DIM ANSWER* (9) 



ANSWER*=" CHERYL" 



DIM NAME* (6) 
NAME*="GEORGE" 
PRINT NAME* 



NAME*=" CAROLE" 
PRINT NAME* 
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PROGRA M M X N G CHALLENGES 
USING VARIABLES 



Choose one the the following tasks and write a program that 
completes it* 

1« Ask. the user to enter five words* Print the nursery 
rhyme below using the words as input* Specify the kinds of 
words you want, so that when you use them to fill in the 
blanks* the nursery rhyme will Make sense* 

Little Miss 

Sat on a 

Eating her and ♦ 

Along C3«e a 

Who sat down beside her 

And frightened Miss away* 

2* Compute a player's batting average when given the 
number of tines at bat* number of hits and nurtber of walks* 



3* Save youself tine by writing one for* letter that 
you can send to several people by just changing the greeting* 
If you want to get fancy* you could also change somb of the 
words in the letter* The following is a short example* 

Dear * 

How are you* ? I am having a great tine 

at Atari Sunder Camp ♦ 



Sandy 

This could also be used to send a M personalized n Message to 
everyone in camp* 

4* Ask the user to enter the appropriate dimensions and 
then compute the area of a geometric figure such as a square * 
rectangle* triangle* circle* or parallelogram* 

5* Use INPUT* LET* at least 3 string variables* and 2 
numeric variables to write a program on a topic of your 
choosing* 
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INPUT 
CAMPER COPY 



5 REM Asks for a nane* Uses string input ♦ 
10 DIM NAME*(2Q> 
20 ? "What is your first nane 11 ? 
30 INPUT NAME* 

40 ? 11 HI * "JNAME**"* I'm happy to wake 
your acquaintance ♦ " 



5 REM Averaging program with input* 
10 ? H This program will calculate the average" 
20 ? M of any five numbers you choose* Type the" 
30 ? "nunbers in with commbs between then — 11 
40 ? "like this 10 ,3,40 ,70 ,90 ♦ " 
50 INPUT NUM1,NUM2,NUM3,NUM4*NUM5 

60 AVE=<NUMl+NUM2+NUM3+NUM4+NUM5>/5 

70 ? "The average of your numbers is " JAVEJ"*" 



5 REM Calculates age in the year 2001 

10 ? "Have you ever wondered how old you" 

20 ? "will be in the year 2001?" 

30 ? "This prograM will do the necessary" 

40 ? "calculations for you very quickly*" 

50 ? "Enter your age: "J 

60 INPUT AGE 

70 ? "What year is it? (Be sure to use all" 

80 ? "four numbers* eg* 1983)"; 

90 INPUT YEAR 

100 ANSWER=2Q Ql-YEAR+AGE 

110 ? "In 2001, you will be " J ANSWER? " years old*" 
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IMRUX 

(CAMPER COPY CONTINUED) 



5 REM This program allows the user to 

10 REM change the hue and luminance values 

20 REM in a SETCOLOR command, 

30 ? "In this program you will he able to" 

40 ? "change the color of the background on" 

50 ? "the screen*" 

60 ? "Choose a number (0-15) for the hue"; 

70 INPUT HUE 

80 ? "Choose a number (0-14) for the luminance" 

90 INPUT LUM 

100 GR» 3 

110 SETCOLOR 4, HUE, LUM 



5 REM This program allows the user to 

10 REM change the graphics mode to 

20 REM display different sizes of text on 

30 REM on the screen* It also allows the 

40 REM user to change the text on the screen* 

50 ? "In this program* you will be able to" 

60 ? "enter a number from 0 to 2 for the" 

70 ? "graphics mode and a word that you" 

80 ? "want to display ♦" 

90 ? "What graphics mode would you like"? 

100 INPUT MODENUM 

120 ? "You may display any word up to 15 letters 

130 ? "What word would you like to display" i 

140 DIM W0RD$(15) 

150 INPUT WORD* 

160 GR* MODENUM 

170 COLOR 2 

180 POS* 5,6 

190 ? #6JW0RD$ 
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INPUT 
(CAMPER COPY CONTINUED) 



5 REM This progran uses string variables to 

10 REM create a sentence generator* 

20 DIM NOUNS ( 15) , VERBS < 15) ♦ 
ADJ$<15) ,NQUN2S<15) 

30 ? "Please enter a plural noun: "** INPUT NOUN* 

40 ? "Now enter a verb that goes with a" 

50 ? "plural noun* " J ♦ INPUT VERB* 

60 ? "Next enter an adjective* ReweMber" 

70 ? "that an adjective is a word" 

80 ? "that describes a noun* " J ♦ INPUT ADJ* 

90 ? "Finally* enter another plural noun t" J 

100 INPUT N0UN2* 

110 ? "Did you know that "* 

120 ? NOUN**," "*VERB**" ♦ 

130 ? ADJ*?" " JN0UN2* J "?" 



Copyright Atari, 



Inc ♦ , 



1983* 
T13LP 



All rights reserved* 



NUMBER PUZZLE 



10 REM *** Number Pattern Puzzle *** 
20 DIM ANSsU) ,MORE*(l> 
30 ? J? J? 

40 ? "This is 3 number puzzle* Try" 
50 ? "to figure out whet the next" 
60 ? "number will be in each sequence" 
70 ? "These are the sequences*"*? 

80 ? "A. 1, 3, 5, 7, 11, 13, 17, " 

90 ? "B . 40 , 51, 62, 73, 84, 95, " 

100 ? "C. 1, 1, 2, 3, 5, 8, 13, 21, " 

110 ? "D. 3, 3, 5, 4, 4, 3, 5, 5, " ♦? 

120 ? "What sequence would you like" 
130 ? "to try? <Type a letter.)" J 
140 INPUT ANSS 

150 IF ANS$="A" THEN GOSUB 5000 

160 IF ANS*="B" THEN GOSUB 510 0 

170 IF ANS*="C" THEN GOSUB 5200 

180 IF ANS*="D" THEN GOSUB 5300 

20 0 ? :? "Do you want to try another" 

210 ? "sequence? (Type Y or N)"; 

220 INPUT MORE* 

230 IF MORE*="Y" THEN ? "!:":GOTO 70 
240 END 

50 0 0 REM ****pr ime number sequence*** 
5005 REM **** *** 
5010 ? "::•":? :? tREM * clears screen * 
5020 ? "Type a number to finish this" 
5025 ? "sequence. You get three chances ♦"♦? 

5030 ? "1, 3, 5, 7, 11, 13, 17, " 

5040 FOR COUNT=l TO 3 

5050 ? t? "NUMBER" i * 
5060 INPUT NUM 

5070 IF NUM=19 THEN ? "That's correct ♦ " J RETURN 
5080 ? "It's not "JNUMJ". These are prime numbers. 
5090 NEXT COUNT 
5095 RETURN 
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HHO AM X? 



2300 REM xxx Blaise Pascal xxx 

2310 ? : PRINT 

2320 ? "A French MatheMatician who was" 
2330 ? "the first person to invent a" 
2340 ? "significant calculating " 
2350 ? "Machine*" 
2360 PRINT ♦ PRINT 
2370 RETURN 

240 0 REM xxx Boole *** 

2410 ? i PRINT 

2420 ? "An English logician. The" 

2430 ? "pioneer of Modern syMbolic logic." 

2440 PRINT i PRINT 

2450 RETURN 

2500 REM xxx Hollerith xxx 

2510 ? ">"J? 

2520 ? "An AMerican inventor. The" 

2560 ? "first to do a practical" 

2570 ? "iMPleMentation of punched cards." 

2580 PRINT i PRINT 

2590 RETURN 

2600 REM Who Am I - Directions xx 

2610 ? ">":? :? 

2620 ? " WHO AM I?" 

2625 ? 

2630 ? "After you read the description" 
2640 ?. "of the person, choose your" 
2650 ? "answer froM the nanes given." 
2660 ? "Type in the letter of the" 
2670 ? "correct answer. Each of the" 
2680 ? "nanes is faMOUS in coMputing." 
2685 ? "Press RETURN when you are " 
2690 ? "ready to begin." 
2695 INPUT R* 
2699 RETURN 

270 0 REM xxx Asks for answer *xx 

2710 REM *input with correct answer* 

2720 ? :? "Who 3M I? Type a letter" * t * 

2730 INPUT USERANS* 

2740 IF USERANSS^CORRECTANS* THEN ? "That's correct. " {RETURN 
2750 ? "That's not My nane. The" 



2760 ? "correct 


answer is " J CORRECTANS* i 


2770 RETURN 






2800 REM xxx 




Answers xxx 


2810 ? :? :? 






2820 ? " 


A. 


Pascal" 


2830 ? " 


Ei. 


Hollerith" 


2840 ? " 


C. 


Ada" 


2850 ? " 


D. 


Boole" 


2860 ? " 


E . 


Babbage" 


2870 RETURN 






29000 REM xx 


Delay Loop xx 



29010 FOR WAIT=1 TO 50 0 J NEXT WAIT 
29020 RETURN 
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WHO 



AM 



10 REM xWho Am I-NaMes in Computing* 
20 DIM CORRECTANSsd) ,USERANS*<1) ,R*<1) 
30 GOSUB 2600 :REM xx Directions xx 
40 GOSUB 2100 JREM xx Babbage xnt 
50 GOSUB 2800 JREM xx Answers xx 
60 CORRECTANS*="E" 

70 GOSUB 2700 {REM xx Answer Input xx 
80 GOSUB 29000 JREM xx Wait Loop *x 
90 GOSUB 2500 JREM xx Hollerith *x 
100 GOSUB 2800 JREM xx Answers *x 
110 CORRECTANS*="B" 

120 GOSUB 2700 JREM xx Answer Inputxx 
130 GOSUB 29000 JREM xx Wait Loop xx 
140 GOSUB 2200 JREM xx Ada xx 

150 GOSUB 2800 JREM xx Answers xx 
160 CORRECT ANSs="C" 

170 GOSUB 270 0 JREM xx Answer Inputxx 
180 GOSUB 29000 JREM xx Wait Loop xx 
190 GOSUB 230 0 JREM xx Pascal xx 
20 0 GOSUB 280 0 JREM xx Answers xx 
210 CORRECTANS*="A" 

220 GOSUB 2700 JREM xx Answer Inputxx 
230 GOSUB 29000 JREM xx Wait Loop xx 
240 GOSUB 240 0 JREM xx Boole xx 
250 GOSUB 2800 JREM xx Answers xx 
260 CORRECTANS*="D" 

270 GOSUB 270 0 J REM xx Answer Inputxx 
280 GOSUB 29000 JREM xx Wait Loop ** 
290 END 

210 0 REM xxx Charles Babbage xxx 
2110 ? ">"JPRINT 

2120 ? "An English MatheMatician and" 
2130 ? "inventor who is often called" 
2140 ? "the Father of CoMputing. .He" 
2150 ? "said, 'I a* thinking that all" 
2160 ? "those tables night be" 
2170 ? "calculated by nachiner y ♦ ' " 
2180 ? J? 
2190 RETURN 

220 0 REM xxxxxx ADA ' xxxxx 

2210 ? ">" J PRINT 

2220 ? "An exceptional English MatheMatician" 
2230 ? "who is credited with being the first" 
2240 ? "person to wake the statenent that" 
2250 ? "coMputers can do only what you" 
2260 ? "prograM theM to do* Wrote about" 
2270 ? "Babbage's Analytical Engine." 
2280 PRINT J PRINT 
2290 RETURN 
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FUNCTIONS RND & XMT 
(CAMPER COPY) 



PRINT RND<0)*4 
PRINT RND<0)*10 
PRINT RND<0>*50 



PRINT INK 1.9) 
PRINT INTOQ.lll) 
PRINT INT (0.65) 
PRINT INT<100Q00.9) 



10 NUM=RND(0)*5 
20 PRINT NUM 
30 GOTO 10 



10 NUM=RND<0)*5+1 



Run the program again and note the difference in the output. 
Change line 10 again tot 



10 NUM=INT<RND<0)*5+1) 
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IF * • THEN 
CAMF-EIR COF-Y 



10 REM Exanple of 3 conditional 

20 ? "T": REM x Clears screen * 

30 ?.? "Type in a nuMber. ", 

40 INPUT NUM 

50 IF NUM>10 THEN ? "That's too big," 

60 IF NUM<10 THEN ? "That's too snail*" 

70 IF NUM=10 THEN ? "That's the nunber I had 

in mind* ".GOTO 90 

80 GOTO 30 

90 END 



10 REM xx Coin Toss x* 
20 DIM R$(l) 

30 ? "f"*REM Clears screen 

40 ? "One person chooses heads, the" 

50 ? "other person chooses tails*" .? 

60 ? "Press return when you have decided* "J 

70 INPUT R*. ? 

80 IF INT(2x(RND<l> ) XI THEN ? "The person 
who chose heads goes first . " ♦ GOTO 100 
90 ? "The person who chose tails goes first*" 
100 GOTO 10 0 



10 REM x A natter of taste x 

20 REM x Using strings in IF. *THEN blocks x 

30 DIM ANS$<3> 

40 ? "T"{REM x Clears screen x 

50 ? "Do you like chocolate? (Type YES or N0>" 
60 INPUT ANS* 

70 IF ANS$="YES" THEN ? "You have good taste*": 
GOTO 90 

80 ? "Your taste is questionable!" 
90 END 
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FORTUNE TELLER: 



10 REM Fortune teller 

20 PRINT ">":REM Clear screen 

30 PRINT tPRINT "I will tell you your fortune*" 

40 PRINT "Let's see ♦ ♦ ♦ " JPRINT 

50 NUM=INT(3*RND<0) ) 

60 FOR WAIT=1 TO 1000:NEXT WAIT 

70 PRINT "+++++++++++++" 

80 PRINT "You will becowe very " i 

90 IF NUM=0 THEN PRINT "rich," 

100 IF NUM=1 THEN PRINT "poor*" 

110 IF NUM=2 THEN PRINT "powerful*" 

120 NUM=INT<3*RND<0>> 

130 FOR W.AIT=1 TO 750 J NEXT WAIT 

140 PRINT "You will also be very " 1 

150 IF NUM=0 THEN PRINT "happy*" 

160 IF NUM=1 THEN PRINT "fanous*" 

170 IF NUM=2 THEN PRINT "popular*" 

180 PRINT »+++++++++++++" 

190 GOTO 30 
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WRITING Ai PROGRAM 

(CAMPER COPY) 



1* General description of the problem* 

Write a short story about a person 
who leaves the city to go to the beach 
on a vacation* 



2* Be More specific about what the program will do by 
writing out the story* 



A man naMed Fred was very bored with 
life* It seemed like all he ever did was 
go around in circles* One day he decided to 
leave the big city* He got on a train and 
went to the beach for a vacation* The day 
he arrived* it was sunny and warM* The sound 
of the ocean was very calMing to his nerves* 
However ♦♦ *That night a storm came up and it 
rained and it rained and it rained* He decided 
to phone home to see if the weather was any 
better there* But since his children were always 
on the phone* all he got was a busy signal* 
Just as he was at the end of his rope and 
ready to return home* the birds began to 
sing* the sun came out* and he**** 



3* Decide what pictures and sound effects might be 
appropriate and make a list of them* Then determine which 
ones are available in the subroutine library arid which ones 
need to be written* 



4* Divide the story into sections that will fit with 
the sound and graphics subroutines* 
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WRITING A PROGRAM 
( CAMPER COPY - CONTINUED > 



5* Write out English statenents that show the solution 
step by step* 

Title screen 
Author screen 

Introduce the Main character and his problem 
Graphics routine for going around in circles 
Leaves the city on a train 
Train sound effect 
Arrives at the beach 
Ocean sound effect 

A storw cones up and it starts raining 

Graphics routine for rain 

It rains so«e More 

Graphics routine for rain 

It rains sone More 

Graphics routine for rain 

He decides to phone hone to ask about the weather 
Busy signal sound effect 

He is at the end of his rope when birds sing 
Birds chirping sound effect 
The sun cones out 
Graphics routine for sun 
And he* ♦♦To be continued* 
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VACATION — 



MAIN PROGRAM 



10 REM xxxxxxxx MAIN PROGRAM xxxxxxxx 



50 GOSUB 10300 :REM x Title Page x 

55 GOSUB 29000 {REM x Wait Loop x 

60 GOSUB ♦ REM x Author Page x 

65 GOSUB *REM x Wait Loop * 

70 GOSUB 1100 {REM x Introduction x 

80 GOSUB {REM x Wait Loop x 

90 GOSUB {REM xGoing in Circlesx 

100 GOSUB 1200 {REM xLeaving the city x 

110 GOSUB {REM x Train Sound x 

120 GOSUB 1300 {REM x Arrive at beach x 

130 GOSUB {REM x Ocean Sound x 

140 GOSUB 1400 {REM x The Storw x 

150 GOSUB {REM x Wait Loop x 

160 GOSUB {REM x Rain Graphic x 

170 GOSUB 1700 {REM x Rain text x 

180 GOSUB {REM x Wait Loop x 

190 GOSUB {REM x Rain graphic x 

200 GOSUB 1700 {REM x Rain text x 

210 GOSUB {REM x Wait Loop x 



Graphics routine for rain drops 

230 GOSUB 150 0 {REM x Phone Hone x 

Sound effect for telephone busy signal 

250 GOSUB 1800 {REM x End of Rope * 

Sound effect of birds chirping 

270 GOSUB 1900 {REM x Sunshine text * 

Delay loop to Keep text on screen 

Graphics routine for sun shining 

295 GOSUB 29000 {REM x Wait Loop x 
30 0 GOSUB 20 0 0 {REM x Continued text x 

Delay loop to keep text -on screen. 

350 END 
360 REM 
370 REM 
380 REM 



LIST OF SUBROUTINES 

INTRO.TXT 
LEAVING* TXT 
REACH.TXT 
STORM.TXT 
RAIN* TXT 
PHONHOME.TXT 
ENDROPE.TXT 
SUNSHINE ♦ TXT 
CONTINUE . TXT 



Copyright Atari, Inc., 1983* All rights reserved. 

T30LP 



WRITING A PROGRAM 

(CONTINUED) 



2* The subroutines listed below are on the BASIC 
Utility Disk* Enter and store then using the following steps 
exactly as they are written* They put the text on the 
screen* The information in parentheses is the REMark in the 
nain progran* 

Use these steps for each subroutine* 

1* Type NEW to clear nenory* 

2* Put in the BASIC Utility Disk* 

3* Type ENTER"D. % putting the subroutine 

nane in the blank* 
4* Put in the caliper's personal disk* 
5* Type LIST M D*«. % putting the subroutine 

nane in the blank* 
6* GOTO 1* 

LUX OF SUBROUTINES 

INTRO* TXT 
LEAVING* TXT 
BEACH* TXT 
STORM* TXT 
RAIN. TXT 
PHONHOME*TXT 
ENDROPE.TXT 
SUNSHINE* TXT 



Activits il 

Putting it all together* 

1* Type in the nain progran* 

2* Print a directory of the canper's disk to 

get a list of subroutines* 
3* ENTER all subroutines. QQ N01 TYPE NEB. AFTER 

EACH ENTRY! 
4. Run the progran and debug it. 

5* Save the progran using SAVE"D1 "» putting 

a nane the canper chooses in the blank* 
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WRITING Ai PROGRAM 
;( CONTINUED) 



Activity #5 

Complete at least one of the challenges listed below* 

1* Finish the story by adding text, sound* and 
graphics subroutines* 



2* Rearrange the Main progran* so that action 
happens in a different sequence* 



3* Use entries in the subroutine library 

to write an original program that tells 
a story* 
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JOYSTICKS AMD 
CAMFER 



CONTROLLERS 
CORY 



10 NUM=STRIG<0) 
20 PRINT NUM 
30 GOTO 10 



10 REM x Joystick and SOUND 

20 PITCH=STICK<0) 

30 SOUND 0,PITCH*10, 10,10 

40 GOTO 10 



10 REM x Using a paddle * 

20 PITCH=PADDLE<0> 

30 PRINT PITCH 

40 SOUND 0, PITCH, 10,10 

50 GOTO 10 



10 REM xExper inenting with paddles and sound.* 
20 VOL=10 

30 SOUND 0,PADDLE<0> ,10, VOL 

40 IF PTRIG(0) = 0 THEN GOSUE: 10 0 

50 FOR DELAY=1 TO 30 J NEXT DELAY 

60 GOTO 30 

100 VOL=VOL+l 

110 IF V0L=16 THEN VOL=0 

120 RETURN 



Add these lines? 



25 PRINT PADDLE ( 0 ) 
105 PRINT ,VOL 
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EXPLORE LPRINT 



1. Be sure the printer and the interface ere oh* Type in the 
program below* 

10 REM This progran illustrates what LPRINT does 

20 PRINT "THIS LINE WILL OUTPUT TO THE SCREEN" 

30 LPRINT "THIS LINE WILL NOT OUTPUT TO THE SCREEN" 

40 LPRINT "LPRINT WORKS JUST LIKE PRINT" 

50 LPRINT "EXCEPT THAT IT PRINTS ON THE PRINTER" 

Run the program* Look carefully at the output to see which lines 
were output to the screen and which ones were output to the printer* 



2* Type in the following program and then run it to further 
illustrate LPRINT* 

10 GRAPHICS 2ISETC0L0R 4,13,2 

20 LPRINT "There was a young Man from Purdue" 

30 POSITION 5, i: PRINT *6J "ft*************" 

40 LPRINT "Who dr eaMed he was eating rock stew*" 

50 POSITION 5,2*PRINT *6J "*The printer*" 

60 LPRINT " He woke up in the night," 

70 POSITION 5, 3* PRINT #6 J "#is printing*" 

80 LPRINT " With a terrible fright", 

90 POSITION 5, 4t PRINT *6, "**a limerick**" 

10 0 LPRINT "To find it was perfectly true*" 

110 POSITION 5, 5* PRINT #6, " **##******##**" 

3* Combine PRINT and LPRINT in a program* An example is given 
below* 

10 PRINT "SCREEN" J LPRINT "PRINTER" 
20 PRINT "FIRST": LPRINT "SECOND" 
30 PRINT "5432 1", 
40 LPRINT "5 4 3 2 1", 
50 PRINT "BLASTOFF ! " 
60 LPRINT "BLASTOFF ! " 

Be creative and make up your own program* Save the prograw on your 
diskette* 
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LPRINT 



10 REM This progran illustrates what LPRINT does 

20 PRINT "THIS LINE WILL APPEAR ON THE SCREEN" 

30 LPRINT "THIS LINE WILL NOT APPEAR ON THE SCREEN" 

40 LPRINT "LPRINT WORKS JUST LIKE PRINT" 

50 LPRINT "EXCEPT THAT IT PRINTS ON THE PRINTER" 



10 LPRINT "Said a young, but wise robot 

nawed TruMan," 
20 PRINT "The instructor's suprewacy fades" 
30 LPRINT "'When a wan starts fussin' 

and funin', 

40 PRINT "When robots becoMe teaching aides" 
50 LPRINT " And is clunsy and coarse" 
60 PRINT " And students bring treats" 
70 LPRINT " I think of the source," 
80 PRINT " Of candy and sweets," 
90 LPRINT "And rene*ber he is only hunan*'" 
10 0 PRINT "To the robot who Makes out the 
grades ♦ " 



10 PRINT "SCREEN": LPRINT "PRINTER" 

20 PRINT "FIRST" ♦ LPRINT "SECOND" 

30 PRINT "54321", 

40 LPRINT "5432 1", 

50 PRINT "BLASTOFF ! " 

60 LPRINT "BLASTOFF ! " 



Copyright Atari, Inc » » 1983. All rights reserved, 

T28LP 



USING A.fsiD 



10 REM jksok Using AND *** 
20 DIM ANS$ (10), CORRECT* ( 1 ) 
30 CORRECT*="N":COUNT=0 
40 ? ">"J? 

50 ? "Who published 'On Computable" 

60 ? "Numbers', one of the Most important" 

70 ? "papers in the foundations of" 

80 ? "conputer science? You get three" 

90 ? "chances to give the right answer ♦"♦? 

IM INPUT ANS* 

r , IF ANS*=" Turing" THEN CORRECT*="Y" 

120 C0UNT=COUNT+l 

130 ? "COUNT o " ; COUNT 

140 ? "CORRECT = "^CORRECT**.? 

150 IF C0UNTO3 AND CORRECTS="N" THEN ? "Try again: "JtGOTO 100 

160 IF CORRECT*="Y" THEN ? "Yes, it was Alan Matheson Turing. " {GOTO 200 

170 ? "This was a difficult question* The" 

180 ? "answer can be found on page, 79 of" 

190 ? "the book, 'The Making of the Micro' ♦ " 

20 0 END 



r 
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OR / 
CAMPER 



CORY 



10 REM * Use of OR and AND x 
20 ? 'T'tREM Clear screen 
30 DIM C0L0R$(15) 

40 ? "Type in your favorite color* Use" 

50 ? "all capital letters like this, RED.":? 

60 INPUT COLOR* 

70 IF COLOR$="RED" OR C0L0R*="YELL0W" THEN 
? "That is one of My favorites. too!":G0T0 90 
80 ? "Your taste in colors is different 
than Mine*" 
90 END 



30 DIM C0L0R1S<15). C0L0R2*<15> 

40 ? "Type in two colors. Use" 

60 ? "What is the first color"; 

70 INPUT C0L0R1* 

80 ? "What is the second color"? 

90 INPUT C0L0R2* 

100 IF C0L0R1*="RED" AND C0L0R2*=" YELLOW" THEN 

? "Those are My favorite colors. " iGQTO 120 

110 ? "I'm not fond of those colors." 

120 END 



10 REM Use of OR to solve one input probleM 
20 ? "f'i'REM Clears screen 
30 DIM ANS$<3> 

40 ? "Is your favorite car a Porsche" J 
50 INPUT ANS* 

60 IF ANS$="YES" OR ANS*="Y" OR ANS*="yes" 

OR ANS*="y" OR ANS*="Yes" THEN ? "What class!". 

GOTO 80 

70 ? "It isn't. I'm aMazed!" 
80 END 
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ERROR CODES 



ERROR 

CODE ERROR CODE MESSAGE 

2 Memory Insufficient 

3 Value Error 

4 Too Many Variables 

5 String Length Error 

6 Out of Data Error 

7 Number greater than 32767 

8 Input Statement Error 

9 Array or String DIM Error 
10 Argument Stack Overflow 
n Floating Point Overflow/ 

Underflow Error 

12 Line Not Found 

13 No Matching FOR Statement 

14 Line Too Long Error 

15 GOSUB or FOR Line Deleted 

16 RETURN Error 

17 Garbage Error 

18 Invalid String Character 

Note: The following are INPUT/OUTPUT er- 
rors that result during the use of disk drives, 
printers, or other accessory devices. Further in- 
formation is provided with the auxiliary hard- 



ware. 




19 


LOAD program Too Long 


20 


Device Number Larger 


21 


LOAD File Error 


128 


BREAK Abort 


129 


IOCB 


130 


Nonexistent Device 


131 


IOCB Write Only 


132 


Invalid Command 


133 


Device or File not Open 


134 


BAD IOCB Number 


135 


IOCB Read Only Error 


136 


EOF 


137 


Truncated Record 


138 


Device Timeout 


139 


Device NAK 


140 


Serial Bus 


141 


Cursor Out of Range 



ERROR 

CODE ERROR CODE MESSAGE 

142 Serial Bus Data Frame Overrun 

143 Serial bus data frame checksum error 

144 Device done error 

145 Read after write compare error 

146 Function not implemented 

147 Insufficient RAM* 

160 Drive number error 

161 Too many OPEN files 

162 Disk full 

163 Unrecoverable system data I/O error 

164 File number mismatch 

165 File name error 

166 POINT data length error 

167 File locked 

168 Command invalid 

169 Directory full 

170 File not found 

171 POINT invalid 
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